home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 4 / Mac Giga-ROM 4.0 - 1993.toast / FILES / HYP / H-I / HyperScrap.cpt / HyperScrap / card_4053.txt < prev    next >
Text File  |  1989-01-09  |  8KB  |  368 lines
  1. -- card: 4053 from stack: in
  2. -- bmap block id: 4220
  3. -- flags: 4000
  4. -- background id: 2715
  5. -- name: Buttons
  6. ----- HyperTalk script -----
  7. on closeCard
  8.   hide card button "Paste"
  9. end closeCard
  10.  
  11. on openCard
  12.   choose browse tool
  13. end openCard
  14.  
  15. on Δí
  16.   global whatButton
  17.   global s,f,y,a
  18.   put "Click on a button to change the font of..."
  19.   set cursor to plus
  20.   wait until the mouseClick
  21.   hide message
  22.   set cursor to watch
  23.   put getbutton(the clickLoc) into whatButton
  24.   if whatButton is empty then exit Δí
  25.   choose text tool
  26.   click at 25,304
  27.   doMenu "Text Style..."
  28.   put the textFont into f
  29.   put the textSize into s
  30.   put the textStyle into y
  31.   put the textAlign into a
  32.   put whatButton
  33.   set the textFont of whatButton to f
  34.   set the textSize of whatButton to s
  35.   set the textAlign of whatButton to a
  36.   put "Set the textStyle of " & whatButton && "to" && y
  37.   send message to HyperCard
  38.   hide message
  39.   choose browse tool
  40. end Δí
  41.  
  42. function getButton clickPoint
  43. repeat with i = 1 to the number of card buttons
  44.   if clickPoint is within rect of card btn i then
  45.     return the name of btn i
  46.   end if
  47. end repeat
  48. return empty
  49. end getButton
  50.  
  51.  
  52.  
  53.  
  54.  
  55. -- part 62 (button)
  56. -- low flags: 00
  57. -- high flags: 2000
  58. -- rect: left=90 top=31 right=62 bottom=120
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 32488 / 32488
  61. -- text alignment: 1
  62. -- font id: 0
  63. -- text size: 12
  64. -- style flags: 0
  65. -- line height: 16
  66. -- part name: 
  67. ----- HyperTalk script -----
  68. on mouseUp
  69.   if the optionKey is down then
  70.     global wherePlayer
  71.     send "shootUp" to card field wherePlayer
  72.     pass mouseUp
  73.   end if
  74.   global wherePlayer
  75.   send "Up" to card field wherePlayer
  76. end mouseUp
  77.  
  78.  
  79.  
  80. -- part 63 (button)
  81. -- low flags: 00
  82. -- high flags: 2000
  83. -- rect: left=60 top=61 right=92 bottom=90
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 9301 / 9301
  86. -- text alignment: 1
  87. -- font id: 0
  88. -- text size: 12
  89. -- style flags: 0
  90. -- line height: 16
  91. -- part name: 
  92. ----- HyperTalk script -----
  93. on mouseUp
  94.   global wherePlayer
  95.   send "Left" to card field wherePlayer
  96. end mouseUp
  97.  
  98.  
  99.  
  100. -- part 65 (button)
  101. -- low flags: 00
  102. -- high flags: 2000
  103. -- rect: left=89 top=91 right=122 bottom=119
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 2335 / 2335
  106. -- text alignment: 1
  107. -- font id: 0
  108. -- text size: 12
  109. -- style flags: 0
  110. -- line height: 16
  111. -- part name: 
  112. ----- HyperTalk script -----
  113. on mouseUp
  114.   global wherePlayer
  115.   if the optionKey is down then
  116.     send "shootDown" to card field wherePlayer
  117.     pass mouseUp
  118.   end if
  119.   send "down" to card field wherePlayer
  120. end mouseUp
  121.  
  122.  
  123.  
  124. -- part 68 (button)
  125. -- low flags: 00
  126. -- high flags: A003
  127. -- rect: left=41 top=185 right=211 bottom=168
  128. -- title width / last selected line: 0
  129. -- icon id / first selected line: 0 / 0
  130. -- text alignment: 1
  131. -- font id: 0
  132. -- text size: 12
  133. -- style flags: 0
  134. -- line height: 16
  135. -- part name: See through fields
  136. ----- HyperTalk script -----
  137. on mouseUp
  138.   repeat with x = 1 to the number of card fields
  139.     set the style of card field x to transparent
  140.   end repeat
  141. end mouseUp
  142.  
  143.  
  144.  
  145. -- part 69 (button)
  146. -- low flags: 00
  147. -- high flags: A003
  148. -- rect: left=110 top=148 right=167 bottom=172
  149. -- title width / last selected line: 0
  150. -- icon id / first selected line: 0 / 0
  151. -- text alignment: 1
  152. -- font id: 0
  153. -- text size: 12
  154. -- style flags: 0
  155. -- line height: 16
  156. -- part name: Back
  157. ----- HyperTalk script -----
  158. on mouseUp
  159.   go to card "Creation Card" of stack "Game Generator Stack"
  160. end mouseUp
  161.  
  162.  
  163.  
  164. -- part 70 (button)
  165. -- low flags: 00
  166. -- high flags: A003
  167. -- rect: left=36 top=144 right=172 bottom=89
  168. -- title width / last selected line: 0
  169. -- icon id / first selected line: 0 / 0
  170. -- text alignment: 1
  171. -- font id: 0
  172. -- text size: 12
  173. -- style flags: 0
  174. -- line height: 16
  175. -- part name: Reset
  176. ----- HyperTalk script -----
  177. on mouseUp
  178.   global playerChar,wherePlayer
  179.   repeat with r = 1 to the number of card fields
  180.     put empty into card field r
  181.   end repeat
  182.   put "A" into playerChar
  183.   put 1 into wherePlayer
  184.   put "A" into card field wherePlayer
  185. end mouseUp
  186.  
  187.  
  188.  
  189. -- part 78 (button)
  190. -- low flags: 00
  191. -- high flags: 2000
  192. -- rect: left=120 top=60 right=91 bottom=150
  193. -- title width / last selected line: 0
  194. -- icon id / first selected line: 27009 / 27009
  195. -- text alignment: 1
  196. -- font id: 0
  197. -- text size: 12
  198. -- style flags: 0
  199. -- line height: 16
  200. -- part name: Right
  201. ----- HyperTalk script -----
  202. on mouseUp
  203.   global wherePlayer
  204.   send "Right" to card field wherePlayer
  205. end mouseUp
  206.  
  207.  
  208.  
  209. -- part 93 (button)
  210. -- low flags: 00
  211. -- high flags: A000
  212. -- rect: left=313 top=303 right=321 bottom=394
  213. -- title width / last selected line: 0
  214. -- icon id / first selected line: 0 / 0
  215. -- text alignment: 1
  216. -- font id: 0
  217. -- text size: 12
  218. -- style flags: 0
  219. -- line height: 16
  220. -- part name: ButtonFont
  221. ----- HyperTalk script -----
  222. on mouseUp
  223.   send "Δí" to this card
  224. end mouseUp
  225.  
  226.  
  227.  
  228. -- part 95 (button)
  229. -- low flags: 00
  230. -- high flags: A004
  231. -- rect: left=385 top=45 right=64 bottom=443
  232. -- title width / last selected line: 0
  233. -- icon id / first selected line: 0 / 0
  234. -- text alignment: 1
  235. -- font id: 0
  236. -- text size: 12
  237. -- style flags: 0
  238. -- line height: 16
  239. -- part name: Mode 2
  240. ----- HyperTalk script -----
  241. on mouseUp
  242.   if the optionkey is down then pass mouseup
  243.   put card field list into theList
  244.   DoList "Select","Cancel",theList,one
  245.   put item 2 of the result into whatItem
  246. end mouseUp
  247.  
  248.  
  249.  
  250. -- part 98 (button)
  251. -- low flags: 80
  252. -- high flags: 0000
  253. -- rect: left=0 top=1 right=306 bottom=492
  254. -- title width / last selected line: 0
  255. -- icon id / first selected line: 0 / 0
  256. -- text alignment: 1
  257. -- font id: 0
  258. -- text size: 12
  259. -- style flags: 0
  260. -- line height: 16
  261. -- part name: Paste
  262. ----- HyperTalk script -----
  263. on mouseUp
  264.   hide me
  265.   choose button tool
  266.   click at the clickLoc
  267.   doMenu "Copy Button"
  268.   pop card
  269.   doMenu "Paste Button"
  270. end mouseUp
  271.  
  272.  
  273.  
  274. -- part 99 (field)
  275. -- low flags: 00
  276. -- high flags: 0000
  277. -- rect: left=285 top=139 right=207 bottom=365
  278. -- title width / last selected line: 0
  279. -- icon id / first selected line: 0 / 0
  280. -- text alignment: 0
  281. -- font id: 3
  282. -- text size: 12
  283. -- style flags: 0
  284. -- line height: 16
  285. -- part name: List
  286.  
  287.  
  288. -- part 100 (button)
  289. -- low flags: 00
  290. -- high flags: 0000
  291. -- rect: left=254 top=291 right=314 bottom=282
  292. -- title width / last selected line: 0
  293. -- icon id / first selected line: 1013 / 1013
  294. -- text alignment: 1
  295. -- font id: 0
  296. -- text size: 12
  297. -- style flags: 0
  298. -- line height: 16
  299. -- part name: c
  300. ----- HyperTalk script -----
  301. on mouseUp
  302.   visual effect wipe up
  303.   go to next card
  304. end mouseUp
  305.  
  306.  
  307.  
  308. -- part 101 (button)
  309. -- low flags: 00
  310. -- high flags: 0000
  311. -- rect: left=254 top=291 right=314 bottom=282
  312. -- title width / last selected line: 0
  313. -- icon id / first selected line: 1013 / 1013
  314. -- text alignment: 1
  315. -- font id: 0
  316. -- text size: 12
  317. -- style flags: 0
  318. -- line height: 16
  319. -- part name: c
  320. ----- HyperTalk script -----
  321. on mouseUp
  322.   visual effect wipe up
  323.   go to next card
  324. end mouseUp
  325.  
  326.  
  327.  
  328. -- part 104 (button)
  329. -- low flags: 00
  330. -- high flags: 0000
  331. -- rect: left=11 top=26 right=304 bottom=499
  332. -- title width / last selected line: 0
  333. -- icon id / first selected line: 0 / 0
  334. -- text alignment: 1
  335. -- font id: 0
  336. -- text size: 12
  337. -- style flags: 0
  338. -- line height: 16
  339. -- part name: 
  340. ----- HyperTalk script -----
  341. on mouseUp
  342.   go to card "Main Menu"
  343. end mouseUp
  344.  
  345.  
  346.  
  347. -- part 105 (button)
  348. -- low flags: 00
  349. -- high flags: 0000
  350. -- rect: left=11 top=26 right=304 bottom=499
  351. -- title width / last selected line: 0
  352. -- icon id / first selected line: 0 / 0
  353. -- text alignment: 1
  354. -- font id: 0
  355. -- text size: 12
  356. -- style flags: 0
  357. -- line height: 16
  358. -- part name: 
  359. ----- HyperTalk script -----
  360. on mouseUp
  361.   go to card "Main Menu"
  362. end mouseUp
  363.  
  364.  
  365.  
  366. -- part contents for card part 99
  367. ----- text -----
  368. Button,Field,Text,Graphic